3.98 \(\int \cos ^{15}(c+d x) (a+i a \tan (c+d x))^8 \, dx\)

Optimal. Leaf size=212 \[ -\frac{a^8 \sin ^7(c+d x)}{1287 d}+\frac{7 a^8 \sin ^5(c+d x)}{2145 d}-\frac{7 a^8 \sin ^3(c+d x)}{1287 d}+\frac{7 a^8 \sin (c+d x)}{1287 d}-\frac{2 i a^3 \cos ^{13}(c+d x) (a+i a \tan (c+d x))^5}{195 d}-\frac{2 i a^2 \cos ^{11}(c+d x) \left (a^2+i a^2 \tan (c+d x)\right )^3}{715 d}-\frac{2 i \cos ^9(c+d x) \left (a^8+i a^8 \tan (c+d x)\right )}{1287 d}-\frac{2 i a \cos ^{15}(c+d x) (a+i a \tan (c+d x))^7}{15 d} \]

[Out]

(7*a^8*Sin[c + d*x])/(1287*d) - (7*a^8*Sin[c + d*x]^3)/(1287*d) + (7*a^8*Sin[c + d*x]^5)/(2145*d) - (a^8*Sin[c
+ d*x]^7)/(1287*d) - (((2*I)/195)*a^3*Cos[c + d*x]^13*(a + I*a*Tan[c + d*x])^5)/d - (((2*I)/15)*a*Cos[c + d*x
]^15*(a + I*a*Tan[c + d*x])^7)/d - (((2*I)/715)*a^2*Cos[c + d*x]^11*(a^2 + I*a^2*Tan[c + d*x])^3)/d - (((2*I)/
1287)*Cos[c + d*x]^9*(a^8 + I*a^8*Tan[c + d*x]))/d

________________________________________________________________________________________

Rubi [A]  time = 0.19742, antiderivative size = 212, normalized size of antiderivative = 1., number of steps used = 6, number of rules used = 2, integrand size = 24, \(\frac{\text{number of rules}}{\text{integrand size}}\) = 0.083, Rules used = {3496, 2633} \[ -\frac{a^8 \sin ^7(c+d x)}{1287 d}+\frac{7 a^8 \sin ^5(c+d x)}{2145 d}-\frac{7 a^8 \sin ^3(c+d x)}{1287 d}+\frac{7 a^8 \sin (c+d x)}{1287 d}-\frac{2 i a^3 \cos ^{13}(c+d x) (a+i a \tan (c+d x))^5}{195 d}-\frac{2 i a^2 \cos ^{11}(c+d x) \left (a^2+i a^2 \tan (c+d x)\right )^3}{715 d}-\frac{2 i \cos ^9(c+d x) \left (a^8+i a^8 \tan (c+d x)\right )}{1287 d}-\frac{2 i a \cos ^{15}(c+d x) (a+i a \tan (c+d x))^7}{15 d} \]

Antiderivative was successfully verified.

[In]

Int[Cos[c + d*x]^15*(a + I*a*Tan[c + d*x])^8,x]

[Out]

(7*a^8*Sin[c + d*x])/(1287*d) - (7*a^8*Sin[c + d*x]^3)/(1287*d) + (7*a^8*Sin[c + d*x]^5)/(2145*d) - (a^8*Sin[c
+ d*x]^7)/(1287*d) - (((2*I)/195)*a^3*Cos[c + d*x]^13*(a + I*a*Tan[c + d*x])^5)/d - (((2*I)/15)*a*Cos[c + d*x
]^15*(a + I*a*Tan[c + d*x])^7)/d - (((2*I)/715)*a^2*Cos[c + d*x]^11*(a^2 + I*a^2*Tan[c + d*x])^3)/d - (((2*I)/
1287)*Cos[c + d*x]^9*(a^8 + I*a^8*Tan[c + d*x]))/d

Rule 3496

Int[((d_.)*sec[(e_.) + (f_.)*(x_)])^(m_)*((a_) + (b_.)*tan[(e_.) + (f_.)*(x_)])^(n_), x_Symbol] :> Simp[(2*b*(
d*Sec[e + f*x])^m*(a + b*Tan[e + f*x])^(n - 1))/(f*m), x] - Dist[(b^2*(m + 2*n - 2))/(d^2*m), Int[(d*Sec[e + f
*x])^(m + 2)*(a + b*Tan[e + f*x])^(n - 2), x], x] /; FreeQ[{a, b, d, e, f}, x] && EqQ[a^2 + b^2, 0] && GtQ[n,
1] && ((IGtQ[n/2, 0] && ILtQ[m - 1/2, 0]) || (EqQ[n, 2] && LtQ[m, 0]) || (LeQ[m, -1] && GtQ[m + n, 0]) || (ILt
Q[m, 0] && LtQ[m/2 + n - 1, 0] && IntegerQ[n]) || (EqQ[n, 3/2] && EqQ[m, -2^(-1)])) && IntegerQ[2*m]

Rule 2633

Int[sin[(c_.) + (d_.)*(x_)]^(n_), x_Symbol] :> -Dist[d^(-1), Subst[Int[Expand[(1 - x^2)^((n - 1)/2), x], x], x
, Cos[c + d*x]], x] /; FreeQ[{c, d}, x] && IGtQ[(n - 1)/2, 0]

Rubi steps

\begin{align*} \int \cos ^{15}(c+d x) (a+i a \tan (c+d x))^8 \, dx &=-\frac{2 i a \cos ^{15}(c+d x) (a+i a \tan (c+d x))^7}{15 d}+\frac{1}{15} a^2 \int \cos ^{13}(c+d x) (a+i a \tan (c+d x))^6 \, dx\\ &=-\frac{2 i a^3 \cos ^{13}(c+d x) (a+i a \tan (c+d x))^5}{195 d}-\frac{2 i a \cos ^{15}(c+d x) (a+i a \tan (c+d x))^7}{15 d}+\frac{1}{65} a^4 \int \cos ^{11}(c+d x) (a+i a \tan (c+d x))^4 \, dx\\ &=-\frac{2 i a^5 \cos ^{11}(c+d x) (a+i a \tan (c+d x))^3}{715 d}-\frac{2 i a^3 \cos ^{13}(c+d x) (a+i a \tan (c+d x))^5}{195 d}-\frac{2 i a \cos ^{15}(c+d x) (a+i a \tan (c+d x))^7}{15 d}+\frac{1}{143} a^6 \int \cos ^9(c+d x) (a+i a \tan (c+d x))^2 \, dx\\ &=-\frac{2 i a^5 \cos ^{11}(c+d x) (a+i a \tan (c+d x))^3}{715 d}-\frac{2 i a^3 \cos ^{13}(c+d x) (a+i a \tan (c+d x))^5}{195 d}-\frac{2 i a \cos ^{15}(c+d x) (a+i a \tan (c+d x))^7}{15 d}-\frac{2 i \cos ^9(c+d x) \left (a^8+i a^8 \tan (c+d x)\right )}{1287 d}+\frac{\left (7 a^8\right ) \int \cos ^7(c+d x) \, dx}{1287}\\ &=-\frac{2 i a^5 \cos ^{11}(c+d x) (a+i a \tan (c+d x))^3}{715 d}-\frac{2 i a^3 \cos ^{13}(c+d x) (a+i a \tan (c+d x))^5}{195 d}-\frac{2 i a \cos ^{15}(c+d x) (a+i a \tan (c+d x))^7}{15 d}-\frac{2 i \cos ^9(c+d x) \left (a^8+i a^8 \tan (c+d x)\right )}{1287 d}-\frac{\left (7 a^8\right ) \operatorname{Subst}\left (\int \left (1-3 x^2+3 x^4-x^6\right ) \, dx,x,-\sin (c+d x)\right )}{1287 d}\\ &=\frac{7 a^8 \sin (c+d x)}{1287 d}-\frac{7 a^8 \sin ^3(c+d x)}{1287 d}+\frac{7 a^8 \sin ^5(c+d x)}{2145 d}-\frac{a^8 \sin ^7(c+d x)}{1287 d}-\frac{2 i a^5 \cos ^{11}(c+d x) (a+i a \tan (c+d x))^3}{715 d}-\frac{2 i a^3 \cos ^{13}(c+d x) (a+i a \tan (c+d x))^5}{195 d}-\frac{2 i a \cos ^{15}(c+d x) (a+i a \tan (c+d x))^7}{15 d}-\frac{2 i \cos ^9(c+d x) \left (a^8+i a^8 \tan (c+d x)\right )}{1287 d}\\ \end{align*}

Mathematica [A]  time = 3.10333, size = 133, normalized size = 0.63 \[ \frac{a^8 (-3575 i \sin (c+d x)-7371 i \sin (3 (c+d x))-5775 i \sin (5 (c+d x))-3003 i \sin (7 (c+d x))+28600 \cos (c+d x)+19656 \cos (3 (c+d x))+9240 \cos (5 (c+d x))+3432 \cos (7 (c+d x))) (\sin (8 (c+2 d x))-i \cos (8 (c+2 d x)))}{411840 d (\cos (d x)+i \sin (d x))^8} \]

Antiderivative was successfully verified.

[In]

Integrate[Cos[c + d*x]^15*(a + I*a*Tan[c + d*x])^8,x]

[Out]

(a^8*(28600*Cos[c + d*x] + 19656*Cos[3*(c + d*x)] + 9240*Cos[5*(c + d*x)] + 3432*Cos[7*(c + d*x)] - (3575*I)*S
in[c + d*x] - (7371*I)*Sin[3*(c + d*x)] - (5775*I)*Sin[5*(c + d*x)] - (3003*I)*Sin[7*(c + d*x)])*((-I)*Cos[8*(
c + 2*d*x)] + Sin[8*(c + 2*d*x)]))/(411840*d*(Cos[d*x] + I*Sin[d*x])^8)

________________________________________________________________________________________

Maple [B]  time = 0.131, size = 667, normalized size = 3.2 \begin{align*} \text{result too large to display} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(cos(d*x+c)^15*(a+I*a*tan(d*x+c))^8,x)

[Out]

1/d*(a^8*(-1/15*sin(d*x+c)^7*cos(d*x+c)^8-7/195*sin(d*x+c)^5*cos(d*x+c)^8-7/429*sin(d*x+c)^3*cos(d*x+c)^8-7/12
87*sin(d*x+c)*cos(d*x+c)^8+1/1287*(16/5+cos(d*x+c)^6+6/5*cos(d*x+c)^4+8/5*cos(d*x+c)^2)*sin(d*x+c))-8*I*a^8*(-
1/15*sin(d*x+c)^6*cos(d*x+c)^9-2/65*sin(d*x+c)^4*cos(d*x+c)^9-8/715*sin(d*x+c)^2*cos(d*x+c)^9-16/6435*cos(d*x+
c)^9)-28*a^8*(-1/15*sin(d*x+c)^5*cos(d*x+c)^10-1/39*sin(d*x+c)^3*cos(d*x+c)^10-1/143*sin(d*x+c)*cos(d*x+c)^10+
1/1287*(128/35+cos(d*x+c)^8+8/7*cos(d*x+c)^6+48/35*cos(d*x+c)^4+64/35*cos(d*x+c)^2)*sin(d*x+c))+56*I*a^8*(-1/1
5*sin(d*x+c)^4*cos(d*x+c)^11-4/195*sin(d*x+c)^2*cos(d*x+c)^11-8/2145*cos(d*x+c)^11)+70*a^8*(-1/15*sin(d*x+c)^3
*cos(d*x+c)^12-1/65*sin(d*x+c)*cos(d*x+c)^12+1/715*(256/63+cos(d*x+c)^10+10/9*cos(d*x+c)^8+80/63*cos(d*x+c)^6+
32/21*cos(d*x+c)^4+128/63*cos(d*x+c)^2)*sin(d*x+c))-56*I*a^8*(-1/15*sin(d*x+c)^2*cos(d*x+c)^13-2/195*cos(d*x+c
)^13)-28*a^8*(-1/15*sin(d*x+c)*cos(d*x+c)^14+1/195*(1024/231+cos(d*x+c)^12+12/11*cos(d*x+c)^10+40/33*cos(d*x+c
)^8+320/231*cos(d*x+c)^6+128/77*cos(d*x+c)^4+512/231*cos(d*x+c)^2)*sin(d*x+c))-8/15*I*a^8*cos(d*x+c)^15+1/15*a
^8*(2048/429+cos(d*x+c)^14+14/13*cos(d*x+c)^12+168/143*cos(d*x+c)^10+560/429*cos(d*x+c)^8+640/429*cos(d*x+c)^6
+256/143*cos(d*x+c)^4+1024/429*cos(d*x+c)^2)*sin(d*x+c))

________________________________________________________________________________________

Maxima [B]  time = 1.17846, size = 612, normalized size = 2.89 \begin{align*} -\frac{3432 i \, a^{8} \cos \left (d x + c\right )^{15} + 8 i \,{\left (429 \, \cos \left (d x + c\right )^{15} - 1485 \, \cos \left (d x + c\right )^{13} + 1755 \, \cos \left (d x + c\right )^{11} - 715 \, \cos \left (d x + c\right )^{9}\right )} a^{8} + 168 i \,{\left (143 \, \cos \left (d x + c\right )^{15} - 330 \, \cos \left (d x + c\right )^{13} + 195 \, \cos \left (d x + c\right )^{11}\right )} a^{8} + 1848 i \,{\left (13 \, \cos \left (d x + c\right )^{15} - 15 \, \cos \left (d x + c\right )^{13}\right )} a^{8} + 4 \,{\left (3003 \, \sin \left (d x + c\right )^{15} - 13860 \, \sin \left (d x + c\right )^{13} + 24570 \, \sin \left (d x + c\right )^{11} - 20020 \, \sin \left (d x + c\right )^{9} + 6435 \, \sin \left (d x + c\right )^{7}\right )} a^{8} + 10 \,{\left (3003 \, \sin \left (d x + c\right )^{15} - 17325 \, \sin \left (d x + c\right )^{13} + 40950 \, \sin \left (d x + c\right )^{11} - 50050 \, \sin \left (d x + c\right )^{9} + 32175 \, \sin \left (d x + c\right )^{7} - 9009 \, \sin \left (d x + c\right )^{5}\right )} a^{8} + 4 \,{\left (3003 \, \sin \left (d x + c\right )^{15} - 20790 \, \sin \left (d x + c\right )^{13} + 61425 \, \sin \left (d x + c\right )^{11} - 100100 \, \sin \left (d x + c\right )^{9} + 96525 \, \sin \left (d x + c\right )^{7} - 54054 \, \sin \left (d x + c\right )^{5} + 15015 \, \sin \left (d x + c\right )^{3}\right )} a^{8} +{\left (429 \, \sin \left (d x + c\right )^{15} - 1485 \, \sin \left (d x + c\right )^{13} + 1755 \, \sin \left (d x + c\right )^{11} - 715 \, \sin \left (d x + c\right )^{9}\right )} a^{8} +{\left (429 \, \sin \left (d x + c\right )^{15} - 3465 \, \sin \left (d x + c\right )^{13} + 12285 \, \sin \left (d x + c\right )^{11} - 25025 \, \sin \left (d x + c\right )^{9} + 32175 \, \sin \left (d x + c\right )^{7} - 27027 \, \sin \left (d x + c\right )^{5} + 15015 \, \sin \left (d x + c\right )^{3} - 6435 \, \sin \left (d x + c\right )\right )} a^{8}}{6435 \, d} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(cos(d*x+c)^15*(a+I*a*tan(d*x+c))^8,x, algorithm="maxima")

[Out]

-1/6435*(3432*I*a^8*cos(d*x + c)^15 + 8*I*(429*cos(d*x + c)^15 - 1485*cos(d*x + c)^13 + 1755*cos(d*x + c)^11 -
715*cos(d*x + c)^9)*a^8 + 168*I*(143*cos(d*x + c)^15 - 330*cos(d*x + c)^13 + 195*cos(d*x + c)^11)*a^8 + 1848*
I*(13*cos(d*x + c)^15 - 15*cos(d*x + c)^13)*a^8 + 4*(3003*sin(d*x + c)^15 - 13860*sin(d*x + c)^13 + 24570*sin(
d*x + c)^11 - 20020*sin(d*x + c)^9 + 6435*sin(d*x + c)^7)*a^8 + 10*(3003*sin(d*x + c)^15 - 17325*sin(d*x + c)^
13 + 40950*sin(d*x + c)^11 - 50050*sin(d*x + c)^9 + 32175*sin(d*x + c)^7 - 9009*sin(d*x + c)^5)*a^8 + 4*(3003*
sin(d*x + c)^15 - 20790*sin(d*x + c)^13 + 61425*sin(d*x + c)^11 - 100100*sin(d*x + c)^9 + 96525*sin(d*x + c)^7
- 54054*sin(d*x + c)^5 + 15015*sin(d*x + c)^3)*a^8 + (429*sin(d*x + c)^15 - 1485*sin(d*x + c)^13 + 1755*sin(d
*x + c)^11 - 715*sin(d*x + c)^9)*a^8 + (429*sin(d*x + c)^15 - 3465*sin(d*x + c)^13 + 12285*sin(d*x + c)^11 - 2
5025*sin(d*x + c)^9 + 32175*sin(d*x + c)^7 - 27027*sin(d*x + c)^5 + 15015*sin(d*x + c)^3 - 6435*sin(d*x + c))*
a^8)/d

________________________________________________________________________________________

Fricas [A]  time = 2.36828, size = 382, normalized size = 1.8 \begin{align*} \frac{-429 i \, a^{8} e^{\left (15 i \, d x + 15 i \, c\right )} - 3465 i \, a^{8} e^{\left (13 i \, d x + 13 i \, c\right )} - 12285 i \, a^{8} e^{\left (11 i \, d x + 11 i \, c\right )} - 25025 i \, a^{8} e^{\left (9 i \, d x + 9 i \, c\right )} - 32175 i \, a^{8} e^{\left (7 i \, d x + 7 i \, c\right )} - 27027 i \, a^{8} e^{\left (5 i \, d x + 5 i \, c\right )} - 15015 i \, a^{8} e^{\left (3 i \, d x + 3 i \, c\right )} - 6435 i \, a^{8} e^{\left (i \, d x + i \, c\right )}}{823680 \, d} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(cos(d*x+c)^15*(a+I*a*tan(d*x+c))^8,x, algorithm="fricas")

[Out]

1/823680*(-429*I*a^8*e^(15*I*d*x + 15*I*c) - 3465*I*a^8*e^(13*I*d*x + 13*I*c) - 12285*I*a^8*e^(11*I*d*x + 11*I
*c) - 25025*I*a^8*e^(9*I*d*x + 9*I*c) - 32175*I*a^8*e^(7*I*d*x + 7*I*c) - 27027*I*a^8*e^(5*I*d*x + 5*I*c) - 15
015*I*a^8*e^(3*I*d*x + 3*I*c) - 6435*I*a^8*e^(I*d*x + I*c))/d

________________________________________________________________________________________

Sympy [A]  time = 2.45823, size = 314, normalized size = 1.48 \begin{align*} \begin{cases} \frac{- 10867748850798428160 i a^{8} d^{7} e^{15 i c} e^{15 i d x} - 87777971487218073600 i a^{8} d^{7} e^{13 i c} e^{13 i d x} - 311212808000136806400 i a^{8} d^{7} e^{11 i c} e^{11 i d x} - 633952016296574976000 i a^{8} d^{7} e^{9 i c} e^{9 i d x} - 815081163809882112000 i a^{8} d^{7} e^{7 i c} e^{7 i d x} - 684668177600300974080 i a^{8} d^{7} e^{5 i c} e^{5 i d x} - 380371209777944985600 i a^{8} d^{7} e^{3 i c} e^{3 i d x} - 163016232761976422400 i a^{8} d^{7} e^{i c} e^{i d x}}{20866077793532982067200 d^{8}} & \text{for}\: 20866077793532982067200 d^{8} \neq 0 \\x \left (\frac{a^{8} e^{15 i c}}{128} + \frac{7 a^{8} e^{13 i c}}{128} + \frac{21 a^{8} e^{11 i c}}{128} + \frac{35 a^{8} e^{9 i c}}{128} + \frac{35 a^{8} e^{7 i c}}{128} + \frac{21 a^{8} e^{5 i c}}{128} + \frac{7 a^{8} e^{3 i c}}{128} + \frac{a^{8} e^{i c}}{128}\right ) & \text{otherwise} \end{cases} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(cos(d*x+c)**15*(a+I*a*tan(d*x+c))**8,x)

[Out]

Piecewise(((-10867748850798428160*I*a**8*d**7*exp(15*I*c)*exp(15*I*d*x) - 87777971487218073600*I*a**8*d**7*exp
(13*I*c)*exp(13*I*d*x) - 311212808000136806400*I*a**8*d**7*exp(11*I*c)*exp(11*I*d*x) - 633952016296574976000*I
*a**8*d**7*exp(9*I*c)*exp(9*I*d*x) - 815081163809882112000*I*a**8*d**7*exp(7*I*c)*exp(7*I*d*x) - 6846681776003
00974080*I*a**8*d**7*exp(5*I*c)*exp(5*I*d*x) - 380371209777944985600*I*a**8*d**7*exp(3*I*c)*exp(3*I*d*x) - 163
016232761976422400*I*a**8*d**7*exp(I*c)*exp(I*d*x))/(20866077793532982067200*d**8), Ne(20866077793532982067200
*d**8, 0)), (x*(a**8*exp(15*I*c)/128 + 7*a**8*exp(13*I*c)/128 + 21*a**8*exp(11*I*c)/128 + 35*a**8*exp(9*I*c)/1
28 + 35*a**8*exp(7*I*c)/128 + 21*a**8*exp(5*I*c)/128 + 7*a**8*exp(3*I*c)/128 + a**8*exp(I*c)/128), True))

________________________________________________________________________________________

Giac [B]  time = 4.30708, size = 3941, normalized size = 18.59 \begin{align*} \text{result too large to display} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(cos(d*x+c)^15*(a+I*a*tan(d*x+c))^8,x, algorithm="giac")

[Out]

1/863691079680*(5682101344920*a^8*e^(28*I*d*x + 14*I*c)*log(I*e^(I*d*x + I*c) + 1) + 79549418828880*a^8*e^(26*
I*d*x + 12*I*c)*log(I*e^(I*d*x + I*c) + 1) + 517071222387720*a^8*e^(24*I*d*x + 10*I*c)*log(I*e^(I*d*x + I*c) +
1) + 2068284889550880*a^8*e^(22*I*d*x + 8*I*c)*log(I*e^(I*d*x + I*c) + 1) + 5687783446264920*a^8*e^(20*I*d*x
+ 6*I*c)*log(I*e^(I*d*x + I*c) + 1) + 11375566892529840*a^8*e^(18*I*d*x + 4*I*c)*log(I*e^(I*d*x + I*c) + 1) +
17063350338794760*a^8*e^(16*I*d*x + 2*I*c)*log(I*e^(I*d*x + I*c) + 1) + 17063350338794760*a^8*e^(12*I*d*x - 2*
I*c)*log(I*e^(I*d*x + I*c) + 1) + 11375566892529840*a^8*e^(10*I*d*x - 4*I*c)*log(I*e^(I*d*x + I*c) + 1) + 5687
783446264920*a^8*e^(8*I*d*x - 6*I*c)*log(I*e^(I*d*x + I*c) + 1) + 2068284889550880*a^8*e^(6*I*d*x - 8*I*c)*log
(I*e^(I*d*x + I*c) + 1) + 517071222387720*a^8*e^(4*I*d*x - 10*I*c)*log(I*e^(I*d*x + I*c) + 1) + 79549418828880
*a^8*e^(2*I*d*x - 12*I*c)*log(I*e^(I*d*x + I*c) + 1) + 19500971815765440*a^8*e^(14*I*d*x)*log(I*e^(I*d*x + I*c
) + 1) + 5682101344920*a^8*e^(-14*I*c)*log(I*e^(I*d*x + I*c) + 1) + 5674116082635*a^8*e^(28*I*d*x + 14*I*c)*lo
g(I*e^(I*d*x + I*c) - 1) + 79437625156890*a^8*e^(26*I*d*x + 12*I*c)*log(I*e^(I*d*x + I*c) - 1) + 5163445635197
85*a^8*e^(24*I*d*x + 10*I*c)*log(I*e^(I*d*x + I*c) - 1) + 2065378254079140*a^8*e^(22*I*d*x + 8*I*c)*log(I*e^(I
*d*x + I*c) - 1) + 5679790198717635*a^8*e^(20*I*d*x + 6*I*c)*log(I*e^(I*d*x + I*c) - 1) + 11359580397435270*a^
8*e^(18*I*d*x + 4*I*c)*log(I*e^(I*d*x + I*c) - 1) + 17039370596152905*a^8*e^(16*I*d*x + 2*I*c)*log(I*e^(I*d*x
+ I*c) - 1) + 17039370596152905*a^8*e^(12*I*d*x - 2*I*c)*log(I*e^(I*d*x + I*c) - 1) + 11359580397435270*a^8*e^
(10*I*d*x - 4*I*c)*log(I*e^(I*d*x + I*c) - 1) + 5679790198717635*a^8*e^(8*I*d*x - 6*I*c)*log(I*e^(I*d*x + I*c)
- 1) + 2065378254079140*a^8*e^(6*I*d*x - 8*I*c)*log(I*e^(I*d*x + I*c) - 1) + 516344563519785*a^8*e^(4*I*d*x -
10*I*c)*log(I*e^(I*d*x + I*c) - 1) + 79437625156890*a^8*e^(2*I*d*x - 12*I*c)*log(I*e^(I*d*x + I*c) - 1) + 194
73566395603320*a^8*e^(14*I*d*x)*log(I*e^(I*d*x + I*c) - 1) + 5674116082635*a^8*e^(-14*I*c)*log(I*e^(I*d*x + I*
c) - 1) - 5682101344920*a^8*e^(28*I*d*x + 14*I*c)*log(-I*e^(I*d*x + I*c) + 1) - 79549418828880*a^8*e^(26*I*d*x
+ 12*I*c)*log(-I*e^(I*d*x + I*c) + 1) - 517071222387720*a^8*e^(24*I*d*x + 10*I*c)*log(-I*e^(I*d*x + I*c) + 1)
- 2068284889550880*a^8*e^(22*I*d*x + 8*I*c)*log(-I*e^(I*d*x + I*c) + 1) - 5687783446264920*a^8*e^(20*I*d*x +
6*I*c)*log(-I*e^(I*d*x + I*c) + 1) - 11375566892529840*a^8*e^(18*I*d*x + 4*I*c)*log(-I*e^(I*d*x + I*c) + 1) -
17063350338794760*a^8*e^(16*I*d*x + 2*I*c)*log(-I*e^(I*d*x + I*c) + 1) - 17063350338794760*a^8*e^(12*I*d*x - 2
*I*c)*log(-I*e^(I*d*x + I*c) + 1) - 11375566892529840*a^8*e^(10*I*d*x - 4*I*c)*log(-I*e^(I*d*x + I*c) + 1) - 5
687783446264920*a^8*e^(8*I*d*x - 6*I*c)*log(-I*e^(I*d*x + I*c) + 1) - 2068284889550880*a^8*e^(6*I*d*x - 8*I*c)
*log(-I*e^(I*d*x + I*c) + 1) - 517071222387720*a^8*e^(4*I*d*x - 10*I*c)*log(-I*e^(I*d*x + I*c) + 1) - 79549418
828880*a^8*e^(2*I*d*x - 12*I*c)*log(-I*e^(I*d*x + I*c) + 1) - 19500971815765440*a^8*e^(14*I*d*x)*log(-I*e^(I*d
*x + I*c) + 1) - 5682101344920*a^8*e^(-14*I*c)*log(-I*e^(I*d*x + I*c) + 1) - 5674116082635*a^8*e^(28*I*d*x + 1
4*I*c)*log(-I*e^(I*d*x + I*c) - 1) - 79437625156890*a^8*e^(26*I*d*x + 12*I*c)*log(-I*e^(I*d*x + I*c) - 1) - 51
6344563519785*a^8*e^(24*I*d*x + 10*I*c)*log(-I*e^(I*d*x + I*c) - 1) - 2065378254079140*a^8*e^(22*I*d*x + 8*I*c
)*log(-I*e^(I*d*x + I*c) - 1) - 5679790198717635*a^8*e^(20*I*d*x + 6*I*c)*log(-I*e^(I*d*x + I*c) - 1) - 113595
80397435270*a^8*e^(18*I*d*x + 4*I*c)*log(-I*e^(I*d*x + I*c) - 1) - 17039370596152905*a^8*e^(16*I*d*x + 2*I*c)*
log(-I*e^(I*d*x + I*c) - 1) - 17039370596152905*a^8*e^(12*I*d*x - 2*I*c)*log(-I*e^(I*d*x + I*c) - 1) - 1135958
0397435270*a^8*e^(10*I*d*x - 4*I*c)*log(-I*e^(I*d*x + I*c) - 1) - 5679790198717635*a^8*e^(8*I*d*x - 6*I*c)*log
(-I*e^(I*d*x + I*c) - 1) - 2065378254079140*a^8*e^(6*I*d*x - 8*I*c)*log(-I*e^(I*d*x + I*c) - 1) - 516344563519
785*a^8*e^(4*I*d*x - 10*I*c)*log(-I*e^(I*d*x + I*c) - 1) - 79437625156890*a^8*e^(2*I*d*x - 12*I*c)*log(-I*e^(I
*d*x + I*c) - 1) - 19473566395603320*a^8*e^(14*I*d*x)*log(-I*e^(I*d*x + I*c) - 1) - 5674116082635*a^8*e^(-14*I
*c)*log(-I*e^(I*d*x + I*c) - 1) - 7985262285*a^8*e^(28*I*d*x + 14*I*c)*log(I*e^(I*d*x) + e^(-I*c)) - 111793671
990*a^8*e^(26*I*d*x + 12*I*c)*log(I*e^(I*d*x) + e^(-I*c)) - 726658867935*a^8*e^(24*I*d*x + 10*I*c)*log(I*e^(I*
d*x) + e^(-I*c)) - 2906635471740*a^8*e^(22*I*d*x + 8*I*c)*log(I*e^(I*d*x) + e^(-I*c)) - 7993247547285*a^8*e^(2
0*I*d*x + 6*I*c)*log(I*e^(I*d*x) + e^(-I*c)) - 15986495094570*a^8*e^(18*I*d*x + 4*I*c)*log(I*e^(I*d*x) + e^(-I
*c)) - 23979742641855*a^8*e^(16*I*d*x + 2*I*c)*log(I*e^(I*d*x) + e^(-I*c)) - 23979742641855*a^8*e^(12*I*d*x -
2*I*c)*log(I*e^(I*d*x) + e^(-I*c)) - 15986495094570*a^8*e^(10*I*d*x - 4*I*c)*log(I*e^(I*d*x) + e^(-I*c)) - 799
3247547285*a^8*e^(8*I*d*x - 6*I*c)*log(I*e^(I*d*x) + e^(-I*c)) - 2906635471740*a^8*e^(6*I*d*x - 8*I*c)*log(I*e
^(I*d*x) + e^(-I*c)) - 726658867935*a^8*e^(4*I*d*x - 10*I*c)*log(I*e^(I*d*x) + e^(-I*c)) - 111793671990*a^8*e^
(2*I*d*x - 12*I*c)*log(I*e^(I*d*x) + e^(-I*c)) - 27405420162120*a^8*e^(14*I*d*x)*log(I*e^(I*d*x) + e^(-I*c)) -
7985262285*a^8*e^(-14*I*c)*log(I*e^(I*d*x) + e^(-I*c)) + 7985262285*a^8*e^(28*I*d*x + 14*I*c)*log(-I*e^(I*d*x
) + e^(-I*c)) + 111793671990*a^8*e^(26*I*d*x + 12*I*c)*log(-I*e^(I*d*x) + e^(-I*c)) + 726658867935*a^8*e^(24*I
*d*x + 10*I*c)*log(-I*e^(I*d*x) + e^(-I*c)) + 2906635471740*a^8*e^(22*I*d*x + 8*I*c)*log(-I*e^(I*d*x) + e^(-I*
c)) + 7993247547285*a^8*e^(20*I*d*x + 6*I*c)*log(-I*e^(I*d*x) + e^(-I*c)) + 15986495094570*a^8*e^(18*I*d*x + 4
*I*c)*log(-I*e^(I*d*x) + e^(-I*c)) + 23979742641855*a^8*e^(16*I*d*x + 2*I*c)*log(-I*e^(I*d*x) + e^(-I*c)) + 23
979742641855*a^8*e^(12*I*d*x - 2*I*c)*log(-I*e^(I*d*x) + e^(-I*c)) + 15986495094570*a^8*e^(10*I*d*x - 4*I*c)*l
og(-I*e^(I*d*x) + e^(-I*c)) + 7993247547285*a^8*e^(8*I*d*x - 6*I*c)*log(-I*e^(I*d*x) + e^(-I*c)) + 29066354717
40*a^8*e^(6*I*d*x - 8*I*c)*log(-I*e^(I*d*x) + e^(-I*c)) + 726658867935*a^8*e^(4*I*d*x - 10*I*c)*log(-I*e^(I*d*
x) + e^(-I*c)) + 111793671990*a^8*e^(2*I*d*x - 12*I*c)*log(-I*e^(I*d*x) + e^(-I*c)) + 27405420162120*a^8*e^(14
*I*d*x)*log(-I*e^(I*d*x) + e^(-I*c)) + 7985262285*a^8*e^(-14*I*c)*log(-I*e^(I*d*x) + e^(-I*c)) - 449839104*I*a
^8*e^(43*I*d*x + 29*I*c) - 9931063296*I*a^8*e^(41*I*d*x + 27*I*c) - 104683536384*I*a^8*e^(39*I*d*x + 25*I*c) -
700958375936*I*a^8*e^(37*I*d*x + 23*I*c) - 3346162253824*I*a^8*e^(35*I*d*x + 21*I*c) - 12115053117440*I*a^8*e
^(33*I*d*x + 19*I*c) - 34553641041920*I*a^8*e^(31*I*d*x + 17*I*c) - 79597529989120*I*a^8*e^(29*I*d*x + 15*I*c)
- 150652615393280*I*a^8*e^(27*I*d*x + 13*I*c) - 237078702981120*I*a^8*e^(25*I*d*x + 11*I*c) - 312733543170048
*I*a^8*e^(23*I*d*x + 9*I*c) - 347558287245312*I*a^8*e^(21*I*d*x + 7*I*c) - 326158241497088*I*a^8*e^(19*I*d*x +
5*I*c) - 258238371069952*I*a^8*e^(17*I*d*x + 3*I*c) - 171721273376768*I*a^8*e^(15*I*d*x + I*c) - 950039132241
92*I*a^8*e^(13*I*d*x - I*c) - 43034893877248*I*a^8*e^(11*I*d*x - 3*I*c) - 15562783588352*I*a^8*e^(9*I*d*x - 5*
I*c) - 4319355076608*I*a^8*e^(7*I*d*x - 7*I*c) - 862791401472*I*a^8*e^(5*I*d*x - 9*I*c) - 110210580480*I*a^8*e
^(3*I*d*x - 11*I*c) - 6747586560*I*a^8*e^(I*d*x - 13*I*c))/(d*e^(28*I*d*x + 14*I*c) + 14*d*e^(26*I*d*x + 12*I*
c) + 91*d*e^(24*I*d*x + 10*I*c) + 364*d*e^(22*I*d*x + 8*I*c) + 1001*d*e^(20*I*d*x + 6*I*c) + 2002*d*e^(18*I*d*
x + 4*I*c) + 3003*d*e^(16*I*d*x + 2*I*c) + 3003*d*e^(12*I*d*x - 2*I*c) + 2002*d*e^(10*I*d*x - 4*I*c) + 1001*d*
e^(8*I*d*x - 6*I*c) + 364*d*e^(6*I*d*x - 8*I*c) + 91*d*e^(4*I*d*x - 10*I*c) + 14*d*e^(2*I*d*x - 12*I*c) + 3432
*d*e^(14*I*d*x) + d*e^(-14*I*c))